// Written by Jared Bruni

// for planetsourcecode

// www.lostsidedead.com



#include <windows.h>

#include "aolcpp4.h"// header file for the AOL Manipulation Library  (AOLCPP4)


LRESULT APIENTRY MainProc(HWND,UINT,WPARAM,LPARAM);// callback function 

void chatscan(char* sn,char* msg); // call back function

void getanswer(char* buffer);// function to get the answer


HWND main;// handle of main window


int APIENTRY WinMain(HINSTANCE hInst,HINSTANCE hPrev,LPSTR line,int CmdShow)
{
	aol4.SetChatComScan(chatscan);// sets the chatscan function pointer

	// what this does, is point to the function that you want

	// to have the chat messages processed under

	aol4.SendText("-aolcpp4 example#4 - 8 ball bot ");// sends text to the room

	aol4.SendText("-www.lostsidedead.com ( jared bruni / master on lsd )");
	aol4.SendText("type /8ball and a question");

	// setting up are window

	MSG msg;
	WNDCLASS wc;

	wc.cbClsExtra = 0;
	wc.cbWndExtra = 0;
	wc.hbrBackground = (HBRUSH) GetStockObject(LTGRAY_BRUSH);
	wc.hCursor = LoadCursor(NULL,IDC_ARROW);
	wc.hIcon = LoadIcon(NULL,IDI_APPLICATION);
	wc.hInstance = hInst;
	wc.lpfnWndProc = (WNDPROC) MainProc;
	wc.lpszClassName = "Master_8BALL";
	wc.lpszMenuName = NULL;
	wc.style = CS_HREDRAW | CS_VREDRAW;

	RegisterClass(&wc);

	main = CreateWindow("Master_8BALL","AOLCPP example#4",WS_OVERLAPPED | WS_SYSMENU | WS_MINIMIZEBOX,CW_USEDEFAULT,CW_USEDEFAULT,100,100,0,0,hInst,0);

	ShowWindow(main,SW_SHOW);
	UpdateWindow(main);

	// setting are timer

	SetTimer(main,1,1,NULL);

	// message loop

	while(GetMessage(&msg,0,0,0))
	{
		TranslateMessage(&msg);
		DispatchMessage(&msg);
	}

	return msg.wParam;
}
// callback function for are windows messages

LRESULT APIENTRY MainProc(HWND hwnd,UINT msg,WPARAM wParam,LPARAM lParam)
{
	switch(msg)
	{
	case WM_DESTROY:
		aol4.SendText(" - goodbye 8ball off");
		aol4.SendText(" - go get your stuff somewere else!");
		PostQuitMessage(0);
		break;
	case WM_TIMER:
		{
			// ever update, check the room, and if stuff has changed

			// we call the callback function which you pointed to

			// for the messages to be proccessed

			aol4.ChatComScan();
		}
		break;
	default: return DefWindowProc(hwnd,msg,wParam,lParam);
	}
	return 0;
}

// callback for are chat messages

void chatscan(char* sn,char* msg)
{
	// find string, if it exitis

	if(findstr(msg,"/8ball") != -1)
	{
		// do string manipulation, and extract what we need

		char qu[500];
		rightcopy(msg,qu,findstr(msg,"/8ball") + 7);
		char theanswer[100];
		getanswer(theanswer);
		char thefinal[200];
		strcpy(thefinal,"q: ");
		strcat(thefinal,qu);
		strcat(thefinal," a: ");
		strcat(thefinal,theanswer);
		aol4.SendText(thefinal); // send are response to the chatroom

	}
}

// get the answer

void getanswer(char* buffer)
{
	switch(rand()%10)
	{
	case 0:
		strcpy(buffer," quite possible ");
		break;
	case 1:
		strcpy(buffer, " your answer is yes ");
		break;
	case 2:
		strcpy(buffer, " contaminted conclusion ");
		break;
	case 3:
		strcpy(buffer, " your answer is no ");
		break;
	case 4:
		strcpy(buffer, " you have bad luck, you suck! ");
		break;
	case 5:
		strcpy(buffer, " yes, this is true");
		break;
	case 6:
		strcpy(buffer, " comeon now ");
		break;
	case 7:
		strcpy(buffer, " uncertin");
		break;
	case 8:
		strcpy(buffer," yes the meaning of it all ");
		break;
	case 9:
		strcpy(buffer," the echo that is love");
		break;
	case 10:
		strcpy(buffer, " Yes this is the purpose");
		break;
	}
}